100 REM ECHTZEITUHR STELLEN
110 CIA=56328:REM ANFANGSADRESSE VON CIA 1
120 PRINT"GEBEN SIE DIE GENAUE UHRZEIT EIN"
130 PRINT"   HHMMSS[157][157][157][157][157][157][157][157]";:INPUTZ$
140 HH=VAL(LEFT$(Z$,2))
150 MM=VAL(MID$(Z$,3,2))
160 SS=VAL(RIGHT$(Z$,2))
170 IFHH>23ORMM>59ORSS>59THENPRINT"EINGABEFEHLER":GOTO120
175 IF HH>12THENHH=HH-12:TM=1
180 POKE CIA+7, PEEK(CIA+7) AND 255-2^7
190 POKE CIA+6, PEEK(CIA+6) OR 2^7
200 Q= INT(HH/10)*16+HH-INT(HH/10)*10
205 IF TM=1 THEN Q=Q+128
210 POKE CIA+3,Q
220 Q= INT(MM/10)*16+MM-INT(MM/10)*10
230 POKE CIA+2,Q
240 Q= INT(SS/10)*16+SS-INT(SS/10)*10
250 POKE CIA+1,Q
260 POKE CIA+0,0: REM UHR STARTEN
300 REM ECHTZEITUHR LESEN
310 CIA=56328:REM ANFANGSADRESSE VON CIA 1
320 HH=PEEK(CIA+3):ZS=PEEK(CIA)
330 MM=PEEK(CIA+2)
340 SS=PEEK(CIA+1)
350 TM=0: IF HH>128 THEN TM=1:HH=HH-128:REM NACHMITTAGS
360 HH=INT(HH/16)*10+(HH AND 15)
370 IF TM=1 AND HH<>12 THEN HH=HH+12
375 IF TM=0 AND HH=12 THEN HH=0
380 MM=INT(MM/16)*10+(MM AND 15)
390 SS=INT(SS/16)*10+(SS AND 15)
400 PRINT"[147]"HH":"MM":"SS
410 GOTO320